home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / lottery nums.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  28 lines
  1. 10 REM LOTTERY NUMBER GENERATOR              BY P. SPEAGLE
  2. 20 POKE53281,10:POKE53280,10:PRINT"[147]"
  3. 30 PRINT"        LOTTERY NUMBER GENERATOR":PRINTTAB(12)"BY PAUL SPEAGLE"
  4. 40 PRINT"THIS PROGRAM GENERATES A SERIES OF "
  5. 50 PRINT"RANDOM NUMBERS WHICH MAY BE USED TO GET  A RANDOM NUMBER FOR A LOTTERY";
  6. 55 PRINT" TICKET"
  7. 60 PRINT"AS SET UP THE PROGRAM WILL GENERATE A":PRINT"SEQUENCE OF SIX RANDOM NUMBERS";
  8. 70 PRINT" FOR ":PRINT"THE LOTO 6/49 LOTTERY."
  9. 75 PRINT"TO CUSTOMIZE, EDIT LINES 100 - 120"
  10. 80 PRINTTAB(9)"PRESS ANY KEY TO START"
  11. 85 GETA$:IFA$=""THEN85
  12. 100 REM LOTO 6/49
  13. 105 NUM = 6 :REM HOW MANY NUMBERS ARE       MUST BE GENERATED AT ONCE ?
  14. 110 MIN = 1 : REM MINIMUM VALUE THAT        EACH NUMBER MAY TAKE
  15. 115 MAX = 49 : REM MAXIMUM VALUE THAT A     NUMBER MAY TAKE ON
  16. 130 DIM NUM%(NUM)
  17. 140 NUM%(1)=INT(RND(TI)):REM ENSURE THAT    A NEW RANDOM SEQUENCE IS GENERATED
  18. 141 REM EACH TIME THAT THE PROGRAM IS RUN
  19. 150 FORI=1 TO NUM
  20. 160 NUM%(I)=INT(RND(1)*MAX)+MIN
  21. 170 NEXTI
  22. 200 PRINT"[147]HERE ARE";NUM;"RANDOM NUMBERS"
  23. 220 FORI=1TONUM:PRINTNUM%(I);" ";:NEXT:PRINT:PRINT
  24. 240 PRINT"HIT Q TO QUIT OR ANY OTHER KEY TO":PRINT"GENERATE ANOTHER SET OF NUMBERS."
  25. 250 GETA$:IFA$=""THEN250
  26. 260 IF A$<>"Q"THEN150
  27. 270 END
  28.